home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D01.D64 / basic extension (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  734 b   |  27 lines
  1. 10 DIM OP(100):P=1
  2. 15 FOR I=100 TO 210 STEP 10
  3. 20 TT=0
  4. 30 FOR J=0 TO 7
  5. 35 READ OP(P):TT=TT+OP(P)
  6. 40 P=P+1
  7. 50 NEXT
  8. 55 READ FT:IF FT<>TT THEN PRINT "ERROR IN";I
  9. 60 NEXT
  10. 65 P=P-4
  11. 70 FOR U=1 TO P
  12. 75 POKE 678+U,OP(U)
  13. 80 NEXT U
  14. 85 END
  15. 100 DATA 72, 73, 77, 69, 77, 46, 69, 88, 571
  16. 110 DATA 69, 77, 65, 73, 78, 46, 69, 88, 565
  17. 120 DATA 69, 169, 247, 160, 2, 32, 30, 171, 880
  18. 130 DATA 169, 9, 162, 167, 160, 2, 32, 230, 931
  19. 140 DATA 2, 169, 8, 162, 176, 160, 2, 32, 711
  20. 150 DATA 230, 2, 32, 83, 228, 169, 128, 162, 1034
  21. 160 DATA 0, 133, 56, 133, 52, 134, 51, 134, 693
  22. 170 DATA 55, 32, 0, 132, 76, 154, 227, 32, 708
  23. 180 DATA 189, 255, 169, 2, 166, 186, 160, 1, 1128
  24. 190 DATA 32, 186, 255, 169, 0, 76, 213, 255, 1186
  25. 200 DATA 147, 5, 87, 65, 73, 84, 46, 46, 553
  26. 210 DATA 0, 139, 227, 184, 2, 0, 0, 0, 552
  27.